Spaltenbreite optim. per Button im geschütz. Blatt
Sascha
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 im Excel2000 immer nur einmal. Wenn ich nochmal klicke, wird der Laufzeitfehler 1004 angezeigt. Was mache ich falsch? Dieser Vorgang müsste im Excel5, Excel7 und Excel9 funktionieren, im Excel10 gehts.
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