Schutz altes Blatt

Forumthread: Schutz altes Blatt
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Schutz altes Blatt

Schutz altes Blatt

Snewi

Hallo,
ich lege mit folgendem Syntax ein neues Tabellenblatt an:

'neues Tabellenblatt anlegen
Sub NeuesTabBlatt()
Dim NewName
ActiveSheet.Unprotect Password:=""
NewName = InputBox("Geben Sie einen Tabellenblattnamen ein")
If IsNumeric(NewName) Then
NewName = NewName * 1
If NewName > 2000 And NewName

Nun wird das neue Tabellenblatt geschützt! Das alte soll aber auch geschützt werden!
Wie mache ich das?
Gruß

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Schutz altes Blatt

Reinhard
AW: Schutz altes Blatt

Rudi

AW: Schutz altes Blatt

23.02.2012 13:43:02

Reinhard

Hallo Snewie,

Option Explicit
Sub NeuesTabBlatt()
Dim NewName, wks As Worksheet
ActiveSheet.Unprotect Password:=""
NewName = InputBox("Geben Sie einen Tabellenblattnamen ein")
If IsNumeric(NewName) Then
NewName = NewName * 1
If NewName > 2000 And NewName

Gruß
Reinhard

AW: Schutz altes Blatt

23.02.2012 13:43:13

Rudi

Hallo,

Sub NeuesTabBlatt()
Dim NewName, wksOld As Worksheet
Set wksOld = ActiveSheet
ActiveSheet.Unprotect Password:=""
NewName = InputBox("Geben Sie einen Tabellenblattnamen ein")
If IsNumeric(NewName) Then
NewName = NewName * 1
If NewName > 2000 And NewName

Gruß
Rudi