Office: Button löschen mit Passwort Excel 2003

<!--[if gte mso 9]><xml> <w:WordDocument> <w:View>Normal</w:View> <w:Zoom>0</w:Zoom> <w:HyphenationZone>21</w:HyphenationZone> <w:PunctuationKerning/> <w:ValidateAgainstSchemas/> <w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid> <w:IgnoreMixedContent>false</w:IgnoreMixedContent> <w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText> <w:Compatibility> <w:BreakWrappedTables/> <w:SnapToGridInCell/> <w:WrapTextWithPunct/> <w:UseAsianBreakRules/> <w:DontGrowAutofit/> </w:Compatibility> <w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel> </w:WordDocument> </xml><![endif]--> Moin Allemiteinander

Hier habe ich schon lange gelesen und schon viele Tipps rausgeholt, dafür erstmal ein dickes Danke.

Besteht die Möglichkeit den Löschbutton noch mit einer Passwortabfrage zu belegen.
Beides einzeln geht, nur beim Löschen spring er auch Tab2, aber löscht den Inhalt von Tab1, nicht von Tab 2.
Das sind 13 Tabellenblätter mit 22 Löschvorgängen, hier habe ich das nur verkürzt.

Gruß vom Schiffhexler :)



Private Sub CommandButton1_Click()
If MsgBox("Bereich A2:F31 löschen?", vbQuestion + vbYesNo, _
"Löschen bestätigen") = vbYes Then
Range("A2:F31").ClearContents
Sheets("Tabelle2").Select
Range("F2:F7,B8:B20").ClearContents
End If
End Sub
.........................
Private Sub CommandButton2_Click()
pw = InputBox("Passwort?")
If pw = "Passwort" Then
MsgBox "Code wird ausgeführt"
'hier dein Makrocode
Else
MsgBox "falsch!"
End If
End Sub

<!--[if gte mso 9]><xml> <w:LatentStyles DefLockedState="false" LatentStyleCount="156"> </w:LatentStyles> </xml><![endif]--><!--[if gte mso 10]> <style> /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Normale Tabelle"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-parent:""; mso-padding-alt:0cm 5.4pt 0cm 5.4pt; mso-para-margin:0cm; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.0pt; font-family:"Times New Roman"; mso-ansi-language:#0400; mso-fareast-language:#0400; mso-bidi-language:#0400;} </style> <![endif]-->