habe auf einer Mappe ein Command-Button erstellt, funktioniert leider nicht das
MAkro, bleibt bei: MsgBox " Falsches Kennwort !" & Chr(13) & Chr(13) & _
" Nur bei Herrn Buhl zu erfragen !"
stehen.
Hier das Makro:
Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
On Error Resume Next
10:
Err.Clear
Sheets("Muster").Unprotect
If Err.Number = 1004 Then
MsgBox " Falsches Kennwort !" & Chr(13) & Chr(13) & _
" Nur bei Herrn Buhl zu erfragen !"
GoTo 10
End If
If Sheets("Muster").ProtectContents Then
MsgBox "Abbruch!"
Else
Application.Run "Muster-Raus.xls'!PKL_Fixierung_raus"
Application.ScreenUpdating = True
End If
End Sub
'----------------------------------------------------
Bei einem normalen Button :
Sub PKL_Verkäufer_Namen_ändern_Click()
...
sonst das gleiche
läuft das Prima, WIESO?
Gruß Walter