Excel Automation 一問(vb.net to open a locked excel file)

frankyhui

Dim vbProj As Object
  Dim sPassword As String

  On Error GoTo ErrorHandler

  sPassword = sVBEPW

  'Check to see if VBA project is already unlocked
  If objExcelApp.VBE.ActiveVBProject.Protection < 1 Then Exit Function

  'SendKeys is the only way
  If sPassword = ^^ Or sPassword = ++ Then
    sPassword =
    Exit Function
  ElseIf Right(sPassword, 2) = ^^ Or Right(sPassword, 2) = ++ Then
    sPassword =
    Exit Function
  Else

    With objExcelApp
      .SendKeys(%{F11}, True)
      .SendKeys(^r, True)
      .SendKeys({DOWN}, True)
      .SendKeys(sPassword, True)
      .SendKeys(~, True)
    End With

    'objExcelApp..SendKeys(sPassword & ~~ & {ESC})
    'objExcelApp.VBE.CommandBars(1).FindControl(Id:=2578, Recursive:=True).Execute()

  End If

  'Not the right password
  'If objExcelApp.VBE.ActiveVBProject.Protection = 1 Then
  'objExcelApp.Application.SendKeys(%{F11}, True)
  'UnprotectVBProject = False
  'Exit Function
  'End If

  UnprotectVBProject = True

End Sub

'May i know why this not working .... million thanks

frankyhui

有才的不在少數啊

HOTSTUDIO阿蚊

快站沙發，不知道有沒有成功