Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.02.2017 10:10:48 |
Sebastian |
|
|
|
23.02.2017 17:07:55 |
Werner |
|
|
|
23.02.2017 17:25:52 |
Sebastian |
|
|
|
23.02.2017 17:52:59 |
Sebastian |
|
|
|
23.02.2017 19:47:49 |
Werner |
|
|
|
24.02.2017 08:43:05 |
Sebastian |
|
|
|
24.02.2017 09:54:01 |
Werner |
|
|
|
24.02.2017 10:04:27 |
Sebastian |
|
|
|
24.02.2017 10:12:12 |
Werner |
|
|
Blattschutz im Makro entfernen |
24.02.2017 10:30:37 |
Sebastian |
|
|
|
24.02.2017 12:25:53 |
Werner |
|
|
|
24.02.2017 12:52:40 |
Sebastian |
|
|
|
24.02.2017 12:59:54 |
Sebastian |
|
|
|
24.02.2017 13:19:50 |
Werner |
|
|
|
24.02.2017 13:38:50 |
Sebastian |
|
|
Von:
Sebastian |
Datum:
24.02.2017 10:30:37 |
Views:
601 |
Rating:
|
Antwort:
|
Thema:
Blattschutz im Makro entfernen |
Hallo Werner
deine Idee funktioniert so, aber er hakt wieder und springt von Tabelle1 in Tabelle5..
Sub Blattschutzraus()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
If ws.ProtectContents Then
ws.Unprotect "Passwort"
End If
Next ws
Application.ScreenUpdating = False
End Sub
Sub Blattschutzrein()
Dim objWks_1 As Worksheet
Dim objWks_2 As Worksheet
Dim objWks_3 As Worksheet
Dim objWks_4 As Worksheet
Dim objWks_5 As Worksheet
Dim objWks_6 As Worksheet
Application.ScreenUpdating = False
Set objWks_1 = ThisWorkbook.Worksheets("Tabelle1")
objWks_1.Protect Password:="Passwort"
Set objWks_2 = ThisWorkbook.Worksheets("Tabelle2")
objWks_2.Protect Password:="Passwort"
Set objWks_3 = ThisWorkbook.Worksheets("Tabelle3")
objWks_3.Protect Password:="Passwort"
Set objWks_4 = ThisWorkbook.Worksheets("Tabelle4")
objWks_4.Protect Password:="Passwort"
Set objWks_5 = ThisWorkbook.Worksheets("Tabelle5")
objWks_5.Protect Password:="Passwort"
Set objWks_6 = ThisWorkbook.Worksheets("Tabelle6")
objWks_6.Protect Password:="Passwort"
Application.ScreenUpdating = False
End Sub
Und das habe ich in meine Hauptmodul geschrieben
Sub XY()
Call Blattschutzraus
'Mein Code
Call Blattschutzrein
End Sub
Kann man da was machen?
Sebastian
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.02.2017 10:10:48 |
Sebastian |
|
|
|
23.02.2017 17:07:55 |
Werner |
|
|
|
23.02.2017 17:25:52 |
Sebastian |
|
|
|
23.02.2017 17:52:59 |
Sebastian |
|
|
|
23.02.2017 19:47:49 |
Werner |
|
|
|
24.02.2017 08:43:05 |
Sebastian |
|
|
|
24.02.2017 09:54:01 |
Werner |
|
|
|
24.02.2017 10:04:27 |
Sebastian |
|
|
|
24.02.2017 10:12:12 |
Werner |
|
|
Blattschutz im Makro entfernen |
24.02.2017 10:30:37 |
Sebastian |
|
|
|
24.02.2017 12:25:53 |
Werner |
|
|
|
24.02.2017 12:52:40 |
Sebastian |
|
|
|
24.02.2017 12:59:54 |
Sebastian |
|
|
|
24.02.2017 13:19:50 |
Werner |
|
|
|
24.02.2017 13:38:50 |
Sebastian |
|
|