Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Schreibschutz, Schreib und Leseberchtigung
zurück: Text Datei Datum auslesen weiter: Nur Zellen mit werten kopieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Stefan1980
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Apr 2010, 14:05
Rufname:

Schreibschutz, Schreib und Leseberchtigung - Schreibschutz, Schreib und Leseberchtigung

Nach oben
       Version: Office 2003

Hallo, ich hab schon die Eingabemöglichkeit der Steuerelemente
in einer Userform einschränken können. Das funktioniert nach dem
Prinzip, das der Anmeldename, mit einer Liste in einer versteckten Tabelle
abgeglichen wird.

der Code dazu:

UserForm:
Code:

Sub UserForm_Activate()
    UserForm_Userliste.User_Liste_TextG.Enabled = User_Is_Permitted
    UserForm_Userliste.User_Liste_Date_adjust.Enabled = User_Is_Permitted
    UserForm_Userliste.User_Liste_Uebernehmen.Enabled = User_Is_Permitted
End Sub


Modul dazu:
Code:

Option Explicit
Option Private Module

'Pruefung Anmeldename
Public Function User_Is_Permitted() As Boolean
    Dim ActiveUserID As String
    Dim rCell As Range
    ActiveUserID = VBA.Environ("Username")
    For Each rCell In Worksheets("TextG").Range("A4:A10")
        If rCell.Text = ActiveUserID Then
            User_Is_Permitted = True
            Exit For
        End If
    Next
    Set rCell = Nothing
End Function



Nun möchte ich, das die jenigen, die in der versteckten Liste stehen,
die Tabellen bearbeiten dürfen, andere die nicht drinn stehen, sollen sie
sich max. ansehen dürfen aber nicht ändern können.

Gibt es eine ensprechende Möglichkeit den o. g. Code anzupassen oder
entsprechend einen weiteren Code hinzuzufügen der das erlaubt hergibt?

Danke!
Stefan


Zuletzt bearbeitet von Stefan1980 am 21. Apr 2010, 15:53, insgesamt einmal bearbeitet
EtoPHG
Ich sehe dunkle Zeiten aufziehen...


Verfasst am:
21. Apr 2010, 14:17
Rufname: Hansueli


AW: Schreibschutz, Schreib und Leseberchntigung - AW: Schreibschutz, Schreib und Leseberchntigung

Nach oben
       Version: Office 2003

Hallo Stefan,

Ich würde einfach verhindern, dass Benutzer ohne Erlaubnis, die Datei nicht sichern können! Damit werden auch ev. Änderungen nicht aktiv. Wenn deine Variable User_Is_Permitted als Public in einem Standard-Modul definiert wurde, dann einfach mit diesem Code in DieserArbeitsmappe:
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Not (User_is_Permitted) Then
        MsgBox "Sie haben keine Erlaubnis Änderungen an dieser Mappe vorzunehmen!", _
               vbOKOnly + vbExclamation, "Wieder Online:Permission"
        Cancel = True
    End If
End Sub

Gruess Hansueli

_________________
Forenhelfer danken für eine Rückmeldung!
Der Kluge lernt, der Dummkopf erteilt gern Belehrungen. - Anton Tschechow
Stefan1980
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Apr 2010, 14:57
Rufname:

AW: Schreibschutz, Schreib und Leseberchntigung - AW: Schreibschutz, Schreib und Leseberchntigung

Nach oben
       Version: Office 2003

ja diese Variante ist mir auch schon durch den kopf geschossen, nur funktioniert dann nicht meine "userlog" darin wird gespeichert wann welcher user die Tabelle geöffnet und wann geschlossen hat... also müsste diese Tabelle, im übrigen auch versteckt ausgeschlossen werden.
hier mal der Code aus "diesearbeitsmappe"

Code:

Sub Workbook_Activate()
    Dim Range As Variant

    With Worksheets("UserLog")
        .Range("A65000").End(xlUp).Offset(1, 0).Value = Now
        .Range("A65000").End(xlUp).Offset(0, 1).Value = _
                       VBA.Environ("Username")
        .Range("A65000").End(xlUp).Offset(0, 2).Value = "Workbook Open"

     ActiveWorkbook.Save
    End With
End Sub

Sub workbook_open()

'Optionen beim öffnen der Datei
    Application.WindowState = xlMaximized
    Sheets("Auswertung").Select
    UserForm_Userliste.Show

   
End Sub

Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Range As Variant

With Worksheets("UserLog")
    .Range("A65000").End(xlUp).Offset(1, 0).Value = Now
    .Range("A65000").End(xlUp).Offset(0, 1).Value = _
                    VBA.Environ("Username")
    .Range("A65000").End(xlUp).Offset(0, 2).Value = "Workbook Close"
    ActiveWorkbook.Save
End With
End Sub



Stefan
EtoPHG
Ich sehe dunkle Zeiten aufziehen...


Verfasst am:
21. Apr 2010, 15:02
Rufname: Hansueli

AW: Schreibschutz, Schreib und Leseberchntigung - AW: Schreibschutz, Schreib und Leseberchntigung

Nach oben
       Version: Office 2003

Hi Stefan,

Na ja, wenn du das wirklich so kompliziert handhaben willst, dann musst du halt nach den öffnen und feststellen der Berechtigung alle 'sichtbaren' Tabellenblätter je nachdem schützen oder freigeben! Im Übrigen betrachte ich solche Excel-Applikationen nicht als sehr sinnvoll, denn das lässt sich relativ schnelle aushebeln, nur schon damit das ich die Mappe einfach mit deaktivierten Makros öffne.

Gruess Hansueli

_________________
Forenhelfer danken für eine Rückmeldung!
Der Kluge lernt, der Dummkopf erteilt gern Belehrungen. - Anton Tschechow
Stefan1980
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Apr 2010, 15:36
Rufname:


AW: Schreibschutz, Schreib und Leseberchntigung - AW: Schreibschutz, Schreib und Leseberchntigung

Nach oben
       Version: Office 2003

es geht ja nur darum, das die jenigen die dort auch reinschauen müssen,
dann unsiniger weise doch auf tasten kommen, und das soll ausgeschlossen werden.

Denn die Damen die damit arbeiten machen nunmal diesen fehler, wenn ihr
schreibtisch so schön voll ist.
Davon abgesehen, von VBA und was man da macht haben sie eh keine Ahnung,
selbst "1+1" wird im taschenrechner gerechnet und das ergebnis dann in eine
Tabelle eingetragen, von Formeln in Excel wissen Sie gar nichts.

Von daher wäre es Hilfreich so eine Funktion einzurichten, das halt
Änderung nur für den erlauchten Kreis in der UserListe erlaub ist.

Stefan
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel VBA (Makros): Laufzeitfehler 1004 wegen schreibschutz - nicht jeder pc 1 Killersocke 706 08. Jun 2010, 08:38
Killersocke Laufzeitfehler 1004 wegen schreibschutz - nicht jeder pc
Keine neuen Beiträge Excel VBA (Makros): Schreibschutz setzen 2 corum 386 10. März 2010, 20:40
corum Schreibschutz setzen
Keine neuen Beiträge Excel VBA (Makros): Schreibschutz mit Makro abfragen 4 lore101 482 06. Jan 2010, 22:32
lore101 Schreibschutz mit Makro abfragen
Keine neuen Beiträge Excel VBA (Makros): Schreibschutz 2 Gast 303 11. Dez 2009, 13:15
Gast Schreibschutz
Keine neuen Beiträge Excel VBA (Makros): Schreibschutz per Code aufheben 2 bbask 2409 04. Mai 2009, 07:44
bbask Schreibschutz per Code aufheben
Keine neuen Beiträge Excel Formeln: Zellen Schreibschutz 1 Wilfried 1413 28. Apr 2009, 19:13
< Peter > Zellen Schreibschutz
Keine neuen Beiträge Excel VBA (Makros): Bei Klick auf Button einen Wert in ausgewählte Zelle schreib 3 MiKu 683 11. März 2009, 16:48
Raimund Bei Klick auf Button einen Wert in ausgewählte Zelle schreib
Keine neuen Beiträge Excel Formeln: Schreibschutz und Zellwert einstellen. 5 Hero12 499 20. Dez 2008, 14:46
Raimund Schreibschutz und Zellwert einstellen.
Keine neuen Beiträge Excel VBA (Makros): Workaround Schreibschutz Inhalt kopieren 2 Jeraziel 483 05. Dez 2008, 10:19
Breaker Workaround Schreibschutz Inhalt kopieren
Keine neuen Beiträge Excel VBA (Makros): Schreibschutz per Makro deaktivieren? 10 metro2001 503 10. Apr 2008, 13:55
metro2001 Schreibschutz per Makro deaktivieren?
Keine neuen Beiträge Excel VBA (Makros): Schreibschutz für alle Tabellenblätter! 6 saray50 1904 06. Feb 2008, 17:28
Kl@vier Schreibschutz für alle Tabellenblätter!
Keine neuen Beiträge Excel Formeln: schreibschutz einer einzelnen zelle 4 t.mccoy 29145 30. Okt 2007, 21:03
Gast schreibschutz einer einzelnen zelle
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum