Cytat: Hendrixie ;)
Jesteś zbyt oszczędny w słowach do dość obszernych tematów. Nie podejmę w tej chwili żadnej próby zgadywania przyczyn. Jeśli plik nie jest wielką tajemnicą, podrzuć mi go na maila. Pobadamy, pogadamy.
Artik
plik firmowy :) generalnie chodzi mi zamrożenie ekranu na czas trwania procedury:
Private Sub CommandButton1_Click()
'rozpocznij zadanie 1
sciezka = UserForm1.Label15.Caption
zadanie = UserForm1.Label1.Caption
login = UserForm1.Label14.Caption
test_zad = UserForm1.Label16.Caption
cti = UserForm1.Label19.Caption
If test_zad = "0" Then
Application.ScreenUpdating = False'''***
On Error GoTo inf
Workbooks.Open Filename:=sciezka
x = ActiveWorkbook.Name
pozycja = 2
Do While Cells(pozycja, 1).Value <> 0
pozycja = pozycja + 1
Loop
Cells(pozycja, 1).Value = login
Cells(pozycja, 2).Value = zadanie
Cells(pozycja, 3).Value = cti
Cells(pozycja, 4).Value = Now()
Workbooks(x).Close savechanges:=True
UserForm1.Label16.Caption = "1"
UserForm1.Label17.Caption = pozycja
UserForm1.Label18.Caption = "1" UserForm1.CommandButton1.Caption = "Zadanie w realizacji"
UserForm1.CommandButton1.ForeColor = &HFF&
UserForm1.CommandButton14.ForeColor = &HFF&
GoTo won
Application.ScreenUpdating = True
Else
MsgBox ("W tej chwili inne zadanie jest w realizacji. Aby rozpocząć nowe zadanie należy zakończyć obecne!")
GoTo won
End If
inf:
MsgBox ("Brak uprawnień do zapisu lub tymczasowe problemy z serwerem")
won:
End Sub
'''*** teortycznie w tym miejscu wyłącza się wizję, niestety tylko teoretycznie :( |