Thema Datum  Von Nutzer Rating
Antwort
30.06.2023 23:08:47 Nutzer2023
NotSolved
01.07.2023 14:59:07 Gast46398
NotSolved
03.07.2023 07:25:44 Nutzer2023
NotSolved
Blau Mappe mit Schreibschutz öffnen.
 03.07.2023 07:45:37 Nutzer2023
NotSolved
03.07.2023 22:01:08 Gast7777
NotSolved
01.07.2023 22:37:47 Gast7777
NotSolved

Ansicht des Beitrags:
Von:
Nutzer2023		 Datum:
03.07.2023 07:45:37		 Views:
252		 Rating:
     
Antwort:
  Ja
Thema:
Mappe mit Schreibschutz öffnen.

Hier kurz der Code


    Dim pfad As String
    
  
    pfad = ThisWorkbook.Path & "\" & ThisWorkbook.Name
     
    If Environ("Username") = "ABC123" Or Environ("Username") = "abc123" Then 
        Workbooks.Open FileName:=pfad, ReadOnly:=True
    End If

 

Die Variante mit ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly hab ich ebenfalls ausprobiert, aber auch hier kommt bei MsgBox ReadOnlyRecommended ein "falsch" ...

Ihre Antwort
  • 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: Name: Email:



  • 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
30.06.2023 23:08:47 Nutzer2023
NotSolved
01.07.2023 14:59:07 Gast46398
NotSolved
03.07.2023 07:25:44 Nutzer2023
NotSolved
Blau Mappe mit Schreibschutz öffnen.
 03.07.2023 07:45:37 Nutzer2023
NotSolved
03.07.2023 22:01:08 Gast7777
NotSolved
01.07.2023 22:37:47 Gast7777
NotSolved