задний цвет только для чтения richtextbox

Я прочитал вашу проблему, и у меня была та же проблема. Но после того, как я изменил некоторые, моя проблема «Permission Denied» решена.

Private Sub Addi_Click()
'On Error Resume Next
'call ds
browsers ("false")
Call makeAdir
ffgg = "C:\Users\Backups\user\" & User & "1\data\"
Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.Getfolder("c:\users\Backups\user\" & User & "1\data")
    f.Attributes = 0
Set fso = VBA.CreateObject("Scripting.FileSystemObject")
Call fso.Copyfile(filetarget, ffgg, True)

Посмотрите на ffgg = "C:\Users\Backups\user\" & User & "1\data\", до того как я изменил это было ffgg = "C:\Users\Backups\user\" & User & "1\data" Когда я добавляю обратную косую черту после "\data\", мой Проблема решена. Попробуйте добавить косую черту. Возможно, решила твоя проблема. Удачи.