Blattschutz aufheben
27.09.2006 16:45:01
Christian
ich habe das folgende Makro aufgezeichnet und es an eine Schaltfläche gebunden.
Private Sub CommandButton1_Click()
' Makro2 Makro
' Makro am 28.08.2006 von Christian aufgezeichnet
' Tastenkombination: Strg+a
Workbooks.Open Filename:= _
"H:\Office\Arbeit\Excel\\Kontrolle der Ziele Test.xls"
Worksheets("Zusammenfassung").Select
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="Zeit" 'Blattschutz aufheben
ActiveSheet.Range("B14").Select
Selection.Copy
ActiveWindow.Close
Application.ScreenUpdating = False
Application.CutCopyMode = False
ActiveSheet.Range("B21").Select
ActiveSheet.Paste
leider werd ich bei Ausführung des Makros immernoch nach dem Kennwort gefragt
was habe ich falsch gemacht ?
End Sub
Anzeige