Blatt entsperren, spalten optimieren, Blatt sperre
auch
Ich möchte mit einem Commandbutton die optimale Breite der ersten 3 Spalten schalten. Mein Blatt ist geschützt. Nach dem Öffnen der Datei funktioniert das immer nur einmal. Wenn ich nochmal klicke, wird der Laufzeitfehler 1004 angezeigt (hat irgendwas mit dem aufheben des Blattschutzes zu tun). Was ist hier falsch? Ab der Version Excel2000 funzt es. Ich brauche es aber auch im Format Excel95&97. Den Code habe ich per Macro aufgezeichnet.
Habe mal einen Teil der Datei hochgeladen und den Code aufgeschrieben.
https://www.herber.de/bbs/user/4556.xls
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
Columns("A:C").Select
Selection.Columns.AutoFit
Range("A11").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Vielen dank für die Hilfe!
mfg
Sascha
Anzeige