Schützen..
24.04.2005 12:10:13
Walter
habe folgendes Makro zusammengebastelt (mit Unterstüzung Forum).
Sub PKL_VK_ändern()
On Error Resume Next
'On Error GoTo Fehler
Application.ScreenUpdating = False
10: Err.Clear
Sheets("Prov-Blatt").Unprotect '("wwpa") 'schutz aufheben
Application.Run "'1-NW-PLK-VB.xls'!PKL_Fixierung_raus"
ActiveWindow.SmallScroll ToRight:=17
ActiveWindow.SmallScroll Down:=54
ActiveWindow.SmallScroll ToRight:=-2
Range("S80:V80").Select
Range("S80").Select
If Err.Number = 1004 Then
MsgBox " Falsches Kennwort !" & Chr(13) & Chr(13) & _
" Nur der Administrator ist berechtigt !" _
, vbInformation, "Hinweis !"
GoTo 10
Sheets("Prov-Blatt").Select
Range("A1").Select
End If
End Sub
Wenn ich das RICHTIGE Passwort eingebe funktioniert alles, wenn ich ABRECHEN drücke oder ein FALSCHES Passwort eingebe wird trotzdem das Makro:
Application.Run "'1-NW-PLK-VB.xls'!PKL_Fixierung_raus"
ausgeführt.
Wieso, habe schon einiges gefummelt, klappt leider nicht.
Gruß Walter