Just nu i M3-nätverket
Gå till innehåll

Excel 97 och digital signatur


Laja

Rekommendera Poster

Jag har en arbetsbok med att antal VBA-rutiner för att styra visning av kolumner och lägga till blad. Allt fungerar både i Excel 97 och 2000 men när jag lägger till en digital signatur i Excel 2000 kan jag inte längre köra rutinen som lägger till ett nytt blad i Excel 97 - programmet låser sig "...har utfört en förbjuden åtgärd...orsakade ett ogiltigt sidfel på adress 017f:30127151...". Övriga VBA-rutiner fungerar däremot.

 

Alla rutiner fungerar i Excel 2000 även efter det att jag lagt på den digala signaturen.

 

Har du någon förklaring?

 

Hälsningar

Lars

Länk till kommentar
Dela på andra webbplatser

Lars,

 

Generellt kan vi inte arbeta med/öppna VBA-projektet i XL 97 om det är digitalt certifierat eller låst för visning i XL2000.

 

Under vilka förhållanden lägger du till arbetsblad mha VBA? Hur ser koden ut?

 

Mvh

Dennis

www.xldennis.com

 

Länk till kommentar
Dela på andra webbplatser

Dennis,

 

Användaren kan med en knapp på ett blad lägga till kopior av ett annat blad. Min kod ser ut så här:

 

Public Sub NyttPM()

Dim oArk As Worksheet

Dim sBef As String, sNytt As String

Dim iX As Integer, iK As Integer

On Error GoTo Problem

 

iX = 2

Do

iK = iX

sNytt = "PM" & iX

For Each oArk In Worksheets

If oArk.Name = sNytt Then iX = iX + 1

Next oArk

If iX = iK Then Exit Do

If iX > 16 Then

MsgBox "Det finns inte fler rekvisitioner!", vbExclamation

Exit Sub

End If

Loop

 

Application.ScreenUpdating = False

sBef = "PM" & iX - 1

Sheets(sBef).Copy before:=Sheets(1)

Sheets(1).Name = sNytt

With Sheets(sNytt)

.Move after:=Sheets(Sheets.Count)

.Unprotect

.Range("C9") = iX

.Protect

End With

Application.ScreenUpdating = True

Exit Sub

 

Problem:

MsgBox "Tyvärr har ett fel inträffat!", vbCritical

End Sub

 

 

Jag vet att jag inte efter att lagt till certifikat kan redigera koden i Excel 97. Har du något tips på hur jag får rutinen att fungera i båda Excelversionerna?

 

Hälsningar

Lars

 

Länk till kommentar
Dela på andra webbplatser

Lars,

 

Tack för din kod - Testade i både XL 97 (SR-1/SR-2) och XL 2000 SR-1 med certifikat.

 

Tydligen handlar det om en bugg eller feature (ej bekräftad som bugg av MS...)

då problemet uppstår när blad ska läggas till.

 

Ett sätt att kringgå denna bugg/feature är att inte använda dig av digital signatur och istället lägga in din arbetsbok i XLStart-mappen.

 

Arbetsböcker som placeras här anses av XL att vara "trusted sources" ;-)

 

Mvh

Dennis

 

 

 

 

 

 

 

 

 

 

 

 

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...