ich hab hier einen Code mitdem ich eingetragene Daten Löschen kann. Jetzt habe ich aber in jeder Tabelle ein Passwort. Was muß ich vor und nach dem Code setzen das das Passwort in den Tabellen entfernt wird, die Daten gelöscht werden und dann das Passwort wieder gesetzt wird. Bitte um Hilfe
mfg Jupp
Sub Tabellen_Inhalt_Löschen()
frage = MsgBox("Sollen alle Eingaben von Jan - Dez gelöscht werden?", vbExclamation + vbYesNo)
If frage = 6 Then
Sheets("Jan").Range("I9:AM11,I15:AM17,I21:AM23,I27:AM29,I33:AM35,I39:AM41,I45:AM47,I51:AM53,I57: _
AM59,I63:AM65,I69:AM71,I75:AM77,I81:AM83,I87:AM89,I93:AM95,I99:AM101,I105:AM107,I111:AM113").ClearContents
Sheets("Feb").Range("I9:AK11,I15:AK17,I21:AK23,I27:AK29,I33:AK35,I39:AK41,I45:AK47,I51:AK53,I57: _
AK59,I63:AK65,I69:AK71,I75:AK77,I81:AK83,I87:AK89,I93:AK95,I99:AK101,I105:AK107,I111:AK113").ClearContents
Sheets("Mrz").Range("I9:AM11,I15:AM17,I21:AM23,I27:AM29,I33:AM35,I39:AM41,I45:AM47,I51:AM53,I57: _
AM59,I63:AM65,I69:AM71,I75:AM77,I81:AM83,I87:AM89,I93:AM95,I99:AM101,I105:AM107,I111:AM113").ClearContents
Sheets("Apr").Range("I9:AL11,I15:AL17,I21:AL23,I27:AL29,I33:AL35,I39:AL41,I45:AL47,I51:AL53,I57: _
AL59,I63:AL65,I69:AL71,I75:AL77,I81:AL83,I87:AL89,I93:AL95,I99:AL101,I105:AL107,I111:AL113").ClearContents
Sheets("Mai").Range("I9:AM11,I15:AM17,I21:AM23,I27:AM29,I33:AM35,I39:AM41,I45:AM47,I51:AM53,I57: _
AM59,I63:AM65,I69:AM71,I75:AM77,I81:AM83,I87:AM89,I93:AM95,I99:AM101,I105:AM107,I111:AM113").ClearContents
Sheets("Jun").Range("I9:AL11,I15:AL17,I21:AL23,I27:AL29,I33:AL35,I39:AL41,I45:AL47,I51:AL53,I57: _
AL59,I63:AL65,I69:AL71,I75:AL77,I81:AL83,I87:AL89,I93:AL95,I99:AL101,I105:AL107,I111:AL113").ClearContents
Sheets("Jul").Range("I9:AM11,I15:AM17,I21:AM23,I27:AM29,I33:AM35,I39:AM41,I45:AM47,I51:AM53,I57: _
AM59,I63:AM65,I69:AM71,I75:AM77,I81:AM83,I87:AM89,I93:AM95,I99:AM101,I105:AM107,I111:AM113").ClearContents
Sheets("Aug").Range("I9:AM11,I15:AM17,I21:AM23,I27:AM29,I33:AM35,I39:AM41,I45:AM47,I51:AM53,I57: _
AM59,I63:AM65,I69:AM71,I75:AM77,I81:AM83,I87:AM89,I93:AM95,I99:AM101,I105:AM107,I111:AM113").ClearContents
Sheets("Sep").Range("I9:AL11,I15:AL17,I21:AL23,I27:AL29,I33:AL35,I39:AL41,I45:AL47,I51:AL53,I57: _
AL59,I63:AL65,I69:AL71,I75:AL77,I81:AL83,I87:AL89,I93:AL95,I99:AL101,I105:AL107,I111:AL113").ClearContents
Sheets("Okt").Range("I9:AM11,I15:AM17,I21:AM23,I27:AM29,I33:AM35,I39:AM41,I45:AM47,I51:AM53,I57: _
AM59,I63:AM65,I69:AM71,I75:AM77,I81:AM83,I87:AM89,I93:AM95,I99:AM101,I105:AM107,I111:AM113").ClearContents
Sheets("Nov").Range("I9:AL11,I15:AL17,I21:AL23,I27:AL29,I33:AL35,I39:AL41,I45:AL47,I51:AL53,I57: _
AL59,I63:AL65,I69:AL71,I75:AL77,I81:AL83,I87:AL89,I93:AL95,I99:AL101,I105:AL107,I111:AL113").ClearContents
Sheets("Dez").Range("I9:AM11,I15:AM17,I21:AM23,I27:AM29,I33:AM35,I39:AM41,I45:AM47,I51:AM53,I57: _
AM59,I63:AM65,I69:AM71,I75:AM77,I81:AM83,I87:AM89,I93:AM95,I99:AM101,I105:AM107,I111:AM113").ClearContents
End If
End Sub