Søg
Avatar billede lillejens Nybegynder
16. januar 2001 - 11:38 Der er 3 kommentarer og
1 løsning

lås alle celler når man gemmer

Kan man  gemme et regneark så alle celler er låst med en kode og hvad hvad hedder komandoen i VBA ,det vil sige  når brugeren åbner det igen kun kan udskrive arket ,kke ændre det mvh lillejens  :-]
Avatar billede jennemaan Nybegynder
16. januar 2001 - 12:53 #1
Alle celler er pr. default låst (se <format><cells><protection>

udfør følgende for at låse:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True


/Jennemaan
Avatar billede lillejens Nybegynder
16. januar 2001 - 13:39 #2
Hvor i denne kode skal det sættes ind
Range(\"A1:R56\").Select
  Selection.Copy
  Path = \"C:\\WINDOWS\\Skrivebord\\Danlamin\\Tilb.2001\\\"
  Name = Worksheets(\"Ark1\").Range(\"G6\")
  MsgBox Path + Name + \".txt\"
  Workbooks.Add
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    ActiveWorkbook.SaveAs Filename:=Path + Name
    ActiveWorkbook.Close
If Range(\"A2\").Value = \"\" Then
      Range(\"A2\").Select
  End If
Avatar billede jennemaan Nybegynder
16. januar 2001 - 15:23 #3
Range(\"A1:R56\").Select
  Selection.Copy
  Path = \"C:\\WINDOWS\\Skrivebord\\Danlamin\\Tilb.2001\\\"
  Name = Worksheets(\"Ark1\").Range(\"G6\")
  MsgBox Path + Name + \".txt\"
  Workbooks.Add
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
   
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True \'<-------- her :)

    ActiveWorkbook.SaveAs Filename:=Path + Name
    ActiveWorkbook.Close
If Range(\"A2\").Value = \"\" Then
      Range(\"A2\").Select
  End If   

Avatar billede lillejens Nybegynder
16. januar 2001 - 15:35 #4
Hej Jennemaan med denne kode, er de celler som er låst i det oprindelige workbook godtnok låst, men jeg vil gerne at alle cellle er låst da det er et tilbud man ikke må gå ind og ændre noget i og der skal selfølgelig også være en kode til at låse det op med
mvh lillejens
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 18:50 Slet lokal konto Af ErikHg i Windows
I går 16:05 Ændre tal i en celle Af xvid i Excel
I går 13:47 Dette er ikke en kommerciel session i Windows 11 Af eksmojo i Windows
31/0810:26 Synkronisering af kalender mellem computer, android telefon og iPhone Af Strawberry i Andre onlineløsninger
31/0810:24 Kan Excel selv beregne alder? Af leahcim i Excel
White papers
Flere white papers »