in mehreren Workbooks den gleichen Makro starten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Chris
Ich steht da etwas am Berg, mit "for each" ein offenes Workbook nach dem anderen anzuwählen. Deshalb danke für das Angebot.
Ich habe auf der einen Seite ein Code, der die meisten Tabellen innerhalb des Workbooks schützt und einen, der die meisten Tabellen innerhalb des Workbooks entschützt. Den Code möchte ich grundsätzlich in diesen Workbooks lassen, damit er einzeln angewählt werden kann. Ich möchte nur die Möglichkeit haben, fallweise alle offenen Dateien zu entschützen oder eben zu schützen.
Vielen Dank, Peter
Option Explicit


Sub Aufheben()
Dim Wks As Worksheet
Dim myPwd As String
'myPwd = Application.InputBox("Passwort eingeben")
For Each Wks In ThisWorkbook.Worksheets
Select Case Wks.Name
Case "Inventar", "Import
Case Else
Wks.Protect Password:=myPwd
End Select
Wks.Unprotect Password:=myPwd
Next
End Sub


Sub DateiSchützen()
Dim Wks As Worksheet
Dim myPwd As String
Dim myPwd2 As String
'myPwd = Application.InputBox("Passwort eingeben")
'myPwd2 = Application.InputBox("Wiederholung")
Call Aufheben    sicherheitshalber alle aufheben
Call Eingabeschutz
For Each Wks In ThisWorkbook.Worksheets
If myPwd = myPwd2 Then
Select Case Wks.Name
Case "Inventar", "Import"
Case Else
Wks.Protect DrawingObjects:=True, _
contents:=True, _
UserInterfaceOnly:=True, _
Scenarios:=True, Password:=myPwd
End Select
End If
Next
End Sub

Sub Aufheben_alle_WB() Dim Wks As Worksheet, WKB As Workbook Dim myPwd As String 'myPwd = Application.InputBox("Passwort eingeben") For Each WKB In Workbooks For Each Wks In WKB.Worksheets Select Case Wks.Name Case "Inventar", "Import" Case Else Wks.Protect Password:=myPwd End Select Wks.Unprotect Password:=myPwd Next Wks Next WKB End Sub

Sub Aufheben_alle_WB() Dim Wks As Worksheet, WKB As Workbook Dim myPwd As String 'myPwd = Application.InputBox("Passwort eingeben") For Each WKB In Workbooks If WKB.Name Like "875*" Then For Each Wks In WKB.Worksheets Select Case Wks.Name Case "Inventar", "Import" Case Else Wks.Protect Password:=myPwd End Select Wks.Unprotect Password:=myPwd Next Wks End If Next WKB End Sub

Beliebteste Forumthreads (12 Monate)

in mehreren Workbooks den gleichen Makro starten

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

in mehreren Workbooks den gleichen Makro starten

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread