Force Macro - question

[ryan_law2000]

Ok so i know you cant force macro enable but this is kinda what i would like to do:

I have 10 Sheets
Going to make all sheets Hidden except for one
this sheet will just have something saying "MUST ENABLE MACROS"

when my workbook is opened the application is hidden and only a userform is shown
at this point i would like the rest of my sheets to be visible
couple names are: "Main Page" and "Enter"

now all the data will be gatherd through multiple userforms and eventually closing the userform with this code:

Private Sub CommandButton10_Click()
If MsgBox("Are you sure you want close Report", vbYesNo + vbQuestion) = vbYes Then
    ActiveWorkbook.Close savechanges:=False
Else
End If
End Sub

I would like to add to this code
Hide all sheets other then sheet named "WARNING"

So the next time the sheet is opened (if macro's are not enabled) it will just show the one "Warning" sheet. Once macro's are enabled again it should show the userform and unlock all the sheets.

This was just an Idea i thought might work but I wouldnt know what the code would be. and i have tried everything

 

[john123]

Hi Thomas,

Thanks for your reply. I have already submitted a report to Symantec and waiting for their reply.

 

[Jaafar Tribak]

Hi Thomas,

Thanks for your reply. I have already submitted a report to Symantec and waiting for their reply.

Hi john.

I've just seen your question.

There is nothing to worry about running the code. You know it is not a virus
I guess the reason your anti-virus is alerting you is because the code creates a hidden ADS file and attachs it to the C:\Windows folder.

 

[KeepTrying]

I have been saving your code for use for a while now and just tried to run it. I am using Excel 2010 on Windows 7 and am getting an error at line of code:

Open FILE_PATH_NAME For Binary As #lFileNum

in this sub:

Private Sub EmbeedFile(ByVal PathName As String)

Dear Jaafar,

I know this is an old post but...
I have same issue on Excel 2016/Windows 10. Is there any chance to have a look at this please?

Thank you.

Kind Regards,

 

[Jaafar Tribak]

Dear Jaafar,

I know this is an old post but...
I have same issue on Excel 2016/Windows 10. Is there any chance to have a look at this please?

Thank you.

Kind Regards,

I am afraid, Windows 10 seems to delete the ADS file immediately without warning... I couldn't make this work even after temporarly deactivating Windows Defender..

 

[KeepTrying]

I am afraid, Windows 10 seems to delete the ADS file immediately without warning... I couldn't make this work even after temporarly deactivating Windows Defender..

dam*it. Anyway, thanks a lot for your effort and time.

 

[kelly mort]

Dear Jaafar,

I know this is an old post but...
I have same issue on Excel 2016/Windows 10. Is there any chance to have a look at this please?

Thank you.

Kind Regards,

Hello @Jaafar Tribak,

I am also having this same issue. I am using Windows 8 and excel 2016.