Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blatt schützen per VBA unter Excel 97 geht nicht!

Blatt schützen per VBA unter Excel 97 geht nicht!
27.07.2004 14:33:47
Till
Hallo zusammen.
Über eine Schaltfläche wird folgender Code aufgerufen:
ActiveSheet.Unprotect
Das ganze befindet sich in einem Tabellenblatt, welches geschützt ist.
Erstellt habe ich das ganze mit Excel 2000. Bei Excel 97 funktioniert es leider nicht.
Wie bekomme ich das hin?
SChonmal Danke für eure HIlfe.
Grüße,
Till

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt schützen per VBA unter Excel 97 geht nicht!
27.07.2004 14:52:32
Annett
Hallo Till
entferne die Buchstaben "un" dann wird es geschützt.
Gruß Annett
*upsi* ich meinte freigeben
27.07.2004 17:07:11
Till
ohh, ich meinte eigentlich freigeben und nicht schützen. dann stimmt auch unprotect. aber igrendwie halt nur unter Excel 2000. Unter 97läuft das nicht.
Grüße,
Till
AW: Blatt schützen per VBA unter Excel 97 geht nicht!
Ulf
Was für eine Schaltfläche ist das?
Ulf
CommandButton
27.07.2004 17:12:55
Till
Aufgerufen wird folgender Code über einen CommandButton:

Private Sub Acker_Click()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
'ein paar Berchnungen werden ausgeführt
ActiveSheet.Protect Userinterfaceonly:=True
Range("H9").Select
Application.ScreenUpdating = True
End Sub

Anzeige
AW: CommandButton
Ulf 

Private Sub Acker_Click()
Acker.takefocusonclick = false
Application.ScreenUpdating = False
ActiveSheet.Unprotect
'ein paar Berchnungen werden ausgeführt
ActiveSheet.Protect Userinterfaceonly:=True
Range("H9").Select
Application.ScreenUpdating = True
End Sub

AW: CommandButton
27.07.2004 17:49:09
Till
Wenn ich das richtig verstehe, würde es auch helfen, wenn ich statt "ActiveSheet.Unprotect" "Tabelle1.Unprotect" nehmen würde?
Werde das demnächst mal austesten, habe leider momentan keinen Rechner mit Excel 97 zur Verfügung.
Wieso funktioniert das eigentlich bei 2000 ohne diesen Zusatz?
Anzeige
AW: CommandButton
Ulf
Wichtig ist das:
Acker.takefocusonclick = false
wenn der Button auf dem aktven Blatt ist gehts auch mit:
Me.Unprotect
Ulf

308 Forumthreads zu ähnlichen Themen

VBA: Alle PivotItems ausblenden
Daniel

Hallo Profis,
wie kann ich per VBA alle PivotItems einer Pivot-Tabelle ausblenden lassen?
Vielen Dank schon einmal.
Daniel
11.09.2008 13:42:00
Thread-ID: 1009110
2 Beiträge
Anzeige
xlSheetVeryHidden
Gordon

Moin,
habe folgenen Code in "DieseArebeitsmappe":
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False Sheets("Stammdaten").Unprotect Sheets("Bilanzrating").Unprotect Sheets("Z-Score").Unprotect Sheets("Stammdaten").Visible = xlSheetVeryHidden Sheets("...
29.06.2009 13:40:48
Thread-ID: 1085130
7 Beiträge
2 Tabellenblätter in ein PDF nicht möglich
Joachim

Hallo,
ich möchte per VBA das 3. und 4. Tabellenblatt als PDF in EIN Dokument bringen:
Dim n As Integer
Sheets(3).Select
For n = 3 To Sheets.Count
Sheets(n).Select False
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", Collate:=True
25.11.2009 08:17:45
Thread-ID: 1119865
6 Beiträge
Anzeige
xlSheetVeryHidden, screenupdating...
hans

Hallo zusammen,
ich habe ein Problem was ich nicht ganz verstehe, hoffe es ist nur ne Kleinigkeit, die ich grad einfach nicht mehr sehe...
Habe ein Tabellenblatt welches auf veryhidden gesetzt ist.
Von einem anderen Blatt aus, möchte ich auf eine Rechnung zurückgreifen, welche auf d...
27.04.2010 14:13:14
Thread-ID: 1154076
3 Beiträge
VBA - xlSheetHidden-Blätter bearbeiten
Dogbert

Hallo!
Ich habe immer wieder folgendes Problem: Ich muss aus einer Arbeitsmappe, die versteckte Arbeitsblätter enthält, die versteckten Blätter rauslöschen.
Nun suche ich ein Makro, das mir dieses erledigt, es soll so aussehen (jetzt mal ganz umgangssprachlich formuliert):
n = Anz....
05.11.2010 11:44:42
Thread-ID: 1185339
3 Beiträge
Copy aus xlVeryHidden Sheet
Maria

Der Übersicht halber ein neuer Thread, weil sich das Problem etwas verlagert hat.Ich versuche Daten aus dem xlVeryHidden Sheet in ein anderes (sichtbares) Sheet zu kopieren. Egal was ich wie versuche, es gibt alle möglichen Fehlermeldungen. Gibt es da irgendwelche besonderen Mittel & Wege?
13.05.2002 12:34:40
Thread-ID: 120429
8 Beiträge
VBA Alle Blätter (xlVeryHidden) in Mappe schützen
Christian

Kann ich per VBA alle Sheets (aktuell ca. 25 , 1 sichtbar, 24 xlVeryHidden) in der jeweiligen Arbeitsmappe per VBA schützen / Blattschutz aufheben ?Danke
Christian
24.05.2002 14:37:49
Thread-ID: 123500
4 Beiträge
Zelle kopieren in anderes Blatt geht nicht
Joel

Hallo zusammen
Ich weis nicht warum, aber irgendwie geht das nicht, wenn ich eine ganze Zelle in ein neues Blatt kopieren will. Kopieren geht schon, aber es nimmt nicht alles. Es kopiert mir nur einen Teil (etwa 30%).
Das ist doch nicht normal oder?
Danke schon im Voraus.
Gruss...
10.01.2012 10:08:47
Thread-ID: 1245445
14 Beiträge

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
4
6
5
7
2
2
7
3
13
2
8
3
10
4
9
3
2
5
3
1
4
8
5
8