I have managed to compact secured and unsecured both. Here is the code:
Public Sub CompactRepairAccessDB(ByVal sDBFILE As String, _
Optional sPASSWORD As String = "")
Dim sDBPATH As String, sDBNAME As String, sDB As String, sDBtmp As String
sDBNAME = sDBFILE 'extrapulate...