Fjerne skrivebeskytelse på fil

ved dog ikke lige om Form_Load() virker i excel.. men det andet gør..


Private Sub Form_Load()
Dim strFile As String
Dim attFile As VbFileAttribute

  strFile = "C:\Excel-file.xls"

  attFile = GetAttr(strFile)
  Call SetAttr(strFile, (attFile - vbReadOnly))

End Sub

Hej sjh

Det virker ikke, men jeg glemte vist at nævne at det er den aktive fil som er læst ind skrivebeskyttet, hvor skrivebeskyttelsen skal fjernes på.
Det du forslog fjerner godnok skrivebeskyttelsen på filen. Men ikke på den indlæste.

Kan det lade sig gøre.??

ha ha det kan du ikke.. når excel åbner en fil så låser den filen så man ikke kan komme til den.. det sker for at sikre at ingen andre programmer kan læse / skrive til filen.. det er vist ikke noget man kan styer selv..

Det var noget skidt,
lad os lige se om der kommer andre kloge hoveder. Ellers får du for svar

hvad det du vil med den excel file.. siden den ikke må være skrivebeskyttet??

Filen bliver brugt som opstartsfil hvor der nogle tællere som skal opdateres og gemmes. Men de tællerer kan ikke opdateres før bruger har gjort nogle valg. hvorefter der køres en macro og filen gemmes med under nyt navn, hvorved den oprindelige file lukkes, tom og klar til næste opstart. Den oprindelige file må ikke forandres bortset fra nogle tællere. Det fungerer ganske udmærket uden skrivebeskyttelse, men så er filen pludselig gemt med indhold, eller rettet af en pilfinger.
Det var var meget nemmere at lave i database, men så skal en masse andet kode også skrives om.
Stor forklaring til lille sag.

du ahr en mulighed med

ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite

Dette får dog excel til at genindlæse filen, men det er vel ikke noget problem.

for at ændre tilbage
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly

Hej bak

Når jeg bruger din mulighed kommer den med følgende besked

'filen.xls er låst mod redigering af en anden bruger
Klik 'På giv bedsked'
Hvordan omgåes jeg den?

Sørger for, at filen ikke er åben af anden bruger

Jeg lukker dette spørgsmål.
uden at dele point ud

Hilsen fajens

God stil ;o)