Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
UserForm triggers File Corruption
Hi Team
The file works perfectly. If I initialize the form internally, it works as expected, but! If I initialize it via: [ThisWorkbook] Private Sub Workbook_Open() A Popup displays citing "Excel has stopped working" and reboots whereby it tries to repair the file, ultimately rendering it useless. I have tried several times without success. Any assistance is appreciated. TIA Mark. .................................................. .................................................. ......................... I have a UserForm "frmLogin". It is very basic with the following: 1 x Combo = "cmb_uName" RowSource = uTable ControlSource = Admin!B5 1 x TextBox = "txf_uPass" ControlSource = Admin!B6 1 x cmdBtn = "cmd_OK" There is no Initialize code, only the following: Private Sub cmb_uName_Change() Me.txf_uPass.SetFocus End Sub Private Sub cmdBtn_OK_Click() CheckUser End Sub CheckUser has the following: Sub CheckUser() Dim sAdmin As Worksheet: Set sAdmin = ThisWorkbook.Sheets("Admin") Dim obj As OLEObject Dim uRow, sCol As Long Dim sName, dSht As String With sAdmin .Calculate If .Range("B8").Value = Empty Then MsgBox "Only Registered Users are listed, Please contact [Alan Gotts] for Registration." Exit Sub End If If .Range("B7").Value < True Then MsgBox "Incorrect Password entered! Please try again." Exit Sub End If Unload frmLogin uRow = .Range("B8").Value dSht = "Dashboard" For sCol = 8 To 20 sName = .Cells(2, sCol).Value If .Cells(uRow, sCol).Value = "Ð" Then With Sheets(sName) .Unprotect "TooBadSoSad" .Visible = xlSheetVisible End With With Worksheets(dSht) For Each obj In .OLEObjects Select Case obj.Name Case "cmdBtn_Import" .OLEObjects(obj.Name).Enabled = True Case "cmdBtn_Goto_Register" .OLEObjects(obj.Name).Enabled = True Case "cmdBtn_goto_Status" .OLEObjects(obj.Name).Enabled = True Case "cmdBtn_Goto_Bulk" .OLEObjects(obj.Name).Enabled = True Case "cmdBtn_Goto_PAG" .OLEObjects(obj.Name).Enabled = True Case "cmdBtn_Goto_NSW" .OLEObjects(obj.Name).Enabled = True Case "cmdBtn_Goto_QLD" .OLEObjects(obj.Name).Enabled = True Case "cmdBtn_Goto_SA" .OLEObjects(obj.Name).Enabled = True Case "cmdBtn_Goto_VIC" .OLEObjects(obj.Name).Enabled = True Case "cmdBtn_Goto_BKPI" .OLEObjects(obj.Name).Enabled = True Case "cmdBtn_Goto_PKPI" .OLEObjects(obj.Name).Enabled = True Case "cmdBtn_View_BKPI" .OLEObjects(obj.Name).Enabled = True Case "cmdBtn_View_PKPI" .OLEObjects(obj.Name).Enabled = True Case "cmdBtn_Print_BKPI" .OLEObjects(obj.Name).Enabled = True Case "cmdBtn_Print_PKPI" .OLEObjects(obj.Name).Enabled = True End Select Next End With End If If .Cells(uRow, sCol).Value = "Ï" Then With Sheets(sName) .Protect "TooBadSoSad" .Visible = xlSheetVisible End With With Worksheets(dSht) For Each obj In .OLEObjects Select Case obj.Name Case "cmdBtn_Import" .OLEObjects(obj.Name).Enabled = False Case "cmdBtn_Goto_Register" .OLEObjects(obj.Name).Enabled = False Case "cmdBtn_goto_Status" .OLEObjects(obj.Name).Enabled = False Case "cmdBtn_Goto_Bulk" .OLEObjects(obj.Name).Enabled = False Case "cmdBtn_Goto_PAG" .OLEObjects(obj.Name).Enabled = False Case "cmdBtn_Goto_NSW" .OLEObjects(obj.Name).Enabled = False Case "cmdBtn_Goto_QLD" .OLEObjects(obj.Name).Enabled = False Case "cmdBtn_Goto_SA" .OLEObjects(obj.Name).Enabled = False Case "cmdBtn_Goto_VIC" .OLEObjects(obj.Name).Enabled = False Case "cmdBtn_Goto_BKPI" .OLEObjects(obj.Name).Enabled = True Case "cmdBtn_Goto_PKPI" .OLEObjects(obj.Name).Enabled = True Case "cmdBtn_View_BKPI" .OLEObjects(obj.Name).Enabled = True Case "cmdBtn_View_PKPI" .OLEObjects(obj.Name).Enabled = True Case "cmdBtn_Print_BKPI" .OLEObjects(obj.Name).Enabled = True Case "cmdBtn_Print_PKPI" .OLEObjects(obj.Name).Enabled = True End Select Next End With End If If .Cells(uRow, sCol).Value = "x" Then With Sheets(sName) .Visible = xlSheetVeryHidden End With End If Next sCol End With End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
UserForm triggers File Corruption
Hi All
Rather than get an brain-aneurysm, if created a whole new UserForm and deleted the original. Working as expected and without incident now. No idea why the original UserForm was having such a Hissy-fit. Cheers and thanks. Mark. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Suspected corruption in file | Excel Discussion (Misc queries) | |||
Check Excel file for Corruption? | Excel Discussion (Misc queries) | |||
Excel 2007 File corruption | Excel Discussion (Misc queries) | |||
EXCEL file corruption | Excel Programming | |||
opening text file triggers vb error | Excel Programming |