Passwort mit Code setzen und entfernen

Forumthread: Passwort mit Code setzen und entfernen

02.09.2013 13:15:01

Jupp

Hi Leute
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender